<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admenvboxtypesupp.php,v $ 
 * $Date: 2007/07/30 21:16:46 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
$query="SELECT environnement FROM environnement";
$result=rportalrequete($query) or rportalerreur($query,"?op=admenvboxtypeliste");
require_once(get_path_module("environnement.environnement"));
require_once(get_path("param")."environnement.php");
while($row = rportalligne($result)){
	$env = new environnement;
	$env=restaure_environnement($row['environnement']);
	for($i=0;$i<$env->getnbbox();$i++)
    {
        $box=$env->getbox($i);
        if($argid == $box->gettype()) 
        rportalerreur("Le box type que vous voulez supprimer est encore utilise par des boxs.<br>Environnement: ".$env->getNom(),"?op=admenvboxtypeliste");
    }
}
$query = "SELECT nom FROM rportal_boxtype WHERE id='$argid'";
$result=rportalrequete($query) or rportalerreur($query,"?op=admenvboxtypeliste");
$row =  rportalligne($result);
if($rportalparams->key_exists("BOX",$row['nom']))
$rportalparams->drop_key("BOX",$row['nom']);
$query="DELETE FROM rportal_boxtype WHERE id='$argid'";
@rportalrequete($query) or rportalerreur($query,"?op=admenvboxtypeliste");
header("Location: ?op=admenvboxtypeliste");
exit;
?>
